home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / pdsoft / demo_library / 4410.lha / DIAMONDCAVES13.LHA / DC / Install-DC < prev    next >
Text File  |  1995-04-09  |  9KB  |  279 lines
  1. ; $VER DC-Install V1.3
  2.  
  3. (set DrawerNameParent @default-dest)
  4. (set Update 0)
  5.  
  6. (complete 0)
  7. (if (exists "DC:" (NOREQ))
  8.     (
  9.  
  10.         (set Update
  11.             (askchoice
  12.                 (prompt "Diamond Caves already installed.\nDo you want to update or install completely new?")
  13.                 (choices "Install new" "Update")
  14.                 (help "Soory, no help-file.")
  15.                 (default 1)
  16.             )
  17.         )
  18.  
  19.         (set vernum (getversion "DC:DiamondCaves"))
  20.  
  21.         (set ver (/ vernum 65536))
  22.         (set rev (- vernum (* ver 65536)))
  23.  
  24.         (set version (+ (* 10 ver) rev))
  25.  
  26.         (if (> version 13)
  27.             (
  28.                 (message "You have already installed a version >1.3!\n")
  29.                 (exit (quiet))
  30.             )
  31.             (set DrawerNameParent "DC:")
  32.             (set DrawerName "DC:")
  33.         )
  34.     )
  35. )
  36.  
  37. (if (= Update 0)
  38.     (
  39.         (set DrawerNameParent
  40.              (askdir
  41.                  (prompt "In which drawer should Diamond Caves V1.3 be installed?\n(A directory called Diamond Caves will be created)")
  42.                  (help @askdir-help)
  43.                  (default DrawerNameParent)
  44.              )
  45.         )
  46.  
  47.         (set DrawerName (tackon DrawerNameParent "DiamondCaves"))
  48.  
  49.         (complete 10)
  50.         (makedir DrawerName
  51.             (prompt "I will now create the directory \"" DrawerName "\".")
  52.             (help @makedir-help)
  53.             (infos)
  54.             (confirm)
  55.         )
  56.  
  57.         (complete 20)
  58.         (copyfiles
  59.             (prompt "Copying necessary files to \"" DrawerName "\".")
  60.             (help @copyfiles-help)
  61.             (source "DiamondCaves")
  62.             (dest DrawerName)
  63.             (all)
  64.             (infos)
  65.             (confirm)
  66.         )
  67.  
  68.         (complete 30)
  69.         (copyfiles
  70.             (prompt "Copying necessary files to \"" DrawerNameParent "\".")
  71.             (help @copyfiles-help)
  72.             (source "DiamondCaves.info")
  73.             (dest DrawerNameParent)
  74.             (files)
  75.             (infos)
  76.         )
  77.  
  78.         (complete 40)
  79.         (startup "Diamond Caves"
  80.             (prompt "An assign to \"DC:\" will be added to \"S:user-startup\" so that your system will be properly configured to use Diamond Caves.")
  81.             (help "Sorry, no help-file.")
  82.             (command "assign DC: " DrawerName)
  83.         )
  84.         (makeassign "DC")
  85.         (makeassign "DC" DrawerName)
  86.  
  87.  
  88.         (complete 50)
  89.         (if ((database "vblank") 50)
  90.             (set DefaultMode 0)
  91.             (set DefaultMode 2)
  92.         )
  93.         (set ScreenModeNum
  94.             (askchoice
  95.                 (prompt "Which screenmode do you want the title screen of Diamond Caves to use?\n(Note that the title was designed to be used on an interlaced screenmode)")
  96.                 (choices "PAL:HighRes" "PAL:HighRes Interlace" "NTSC:HighRes" "NTSC:HighRes Interlace")
  97.                 (help "Soory, no help-file.")
  98.                 (default DefaultMode)
  99.             )
  100.         )
  101.         (if (= ScreenModeNum 0)
  102.             (set ScreenMode "PAL")
  103.         )
  104.         (if (= ScreenModeNum 1)
  105.             (set ScreenMode "PAL-LACE")
  106.         )
  107.         (if (= ScreenModeNum 2)
  108.             (set ScreenMode "NTSC")
  109.         )
  110.         (if (= ScreenModeNum 3)
  111.             (set ScreenMode "NTSC-LACE")
  112.         )
  113.         (tooltype 
  114.             (prompt "I will now change the tooltype TITLEMODE to " ScreenMode ".")
  115.             (help "Soory, no help-file.")
  116.             (dest "DC:DiamondCaves")
  117.             (settooltype "TITLEMODE" ScreenMode)
  118.             (confirm)
  119.         )
  120.  
  121.  
  122.         (complete 60)
  123.         (set ScreenModeNum
  124.             (askchoice
  125.                 (prompt "Which screenmode do you want the game to use?\n(Note that you should only use interlace if you have a 17\" monitor)")
  126.                 (choices "PAL:LowRes" "PAL:HighRes Interlace" "NTSC:LowRes" "NTSC:HighRes Interlace")
  127.                 (help "Soory, no help-file.")
  128.                 (default DefaultMode)
  129.             )
  130.         )
  131.         (if (= ScreenModeNum 0)
  132.             (set ScreenMode "PAL")
  133.         )
  134.         (if (= ScreenModeNum 1)
  135.             (set ScreenMode "PAL-LACE")
  136.         )
  137.         (if (= ScreenModeNum 2)
  138.             (set ScreenMode "NTSC")
  139.         )
  140.         (if (= ScreenModeNum 3)
  141.             (set ScreenMode "NTSC-LACE")
  142.         )
  143.         (tooltype 
  144.             (prompt "I will now change the tooltype GAMEMODE to " ScreenMode ".")
  145.             (help "Soory, no help-file.")
  146.             (dest "DC:DiamondCaves")
  147.             (settooltype "GAMEMODE" ScreenMode)
  148.             (confirm)
  149.         )
  150.  
  151.  
  152.         (complete 70)
  153.         (set ControlNum
  154.             (askchoice
  155.                 (prompt "Which controlling device do you want Player 1 to use?\n")
  156.                 (choices "Joystick Port 1" "Joystick Port 2" "Keyboard")
  157.                 (help "Soory, no help-file.")
  158.                 (default 1)
  159.             )
  160.         )
  161.         (if (= ControlNum 0)
  162.             (set ControlMode "JOY1")
  163.         )
  164.         (if (= ControlNum 1)
  165.             (set ControlMode "JOY2")
  166.         )
  167.         (if (= ControlNum 2)
  168.             (set ControlMode "KEYS")
  169.         )
  170.         (tooltype 
  171.             (prompt "I will now change the tooltype PLAYER1 to " ControlMode ".")
  172.             (help "Soory, no help-file.")
  173.             (dest "DC:DiamondCaves")
  174.             (settooltype "PLAYER1" ControlMode)
  175.             (confirm)
  176.         )
  177.  
  178.  
  179.         (complete 80)
  180.         (set ControlNum
  181.             (askchoice
  182.                 (prompt "Which controlling device do you want Player 2 to use?\n")
  183.                 (choices "Joystick Port 1" "Joystick Port 2" "Keyboard")
  184.                 (help "Soory, no help-file.")
  185.                 (default 0)
  186.             )
  187.         )
  188.         (if (= ControlNum 0)
  189.             (set ControlMode "JOY1")
  190.         )
  191.         (if (= ControlNum 1)
  192.             (set ControlMode "JOY2")
  193.         )
  194.         (if (= ControlNum 2)
  195.             (set ControlMode "KEYS")
  196.         )
  197.         (tooltype 
  198.             (prompt "I will now change the tooltype PLAYER2 to " ControlMode ".")
  199.             (help "Sorry, no help-file.")
  200.             (dest "DC:DiamondCaves")
  201.             (settooltype "PLAYER2" ControlMode)
  202.             (confirm)
  203.         )
  204.  
  205.         (complete 90)
  206.         (if (askbool
  207.                 (prompt "Do you want to use the gameport.device instead of accessing the hardware directly?\n(This is slower but OS-friendly)")
  208.                 (help "Soory, no help-file.")
  209.                 (default 1)
  210.             )
  211.             (set GamePort "ON")
  212.             (set GamePort "OFF")
  213.         )
  214.         (tooltype 
  215.             (prompt "I will now change the tooltype GAMEPORTDEVICE to " GamePort ".")
  216.             (help "Soory, no help-file.")
  217.             (dest "DC:DiamondCaves")
  218.             (settooltype "GAMEPORTDEVICE" GamePort)
  219.             (confirm)
  220.         )
  221.  
  222.         (complete 100)
  223.         (message "\nDiamond Caves installation complete,please make sure to read at least the first chapter of the doc-file.\n\nAnd now enjoy Diamond Caves!")
  224.     )
  225.  
  226.     (
  227.         (complete 10)
  228.  
  229.         (message "I will now update the following files:\nDiamond Caves (main program)\nDiamondCaves.doc & DiamondCaves.guide\nGame.lvl/23\nGame.lvl/25")
  230.  
  231.         (complete 20)
  232.         (copyfiles
  233.             (prompt "Updating necessary files in \"" DrawerName "\".")
  234.             (help @copyfiles-help)
  235.             (source "DiamondCaves/DiamondCaves")
  236.             (dest "DC:")
  237.             (files)
  238.         )
  239.         (complete 35)
  240.         (copyfiles
  241.             (prompt "Updating necessary files in \"" DrawerName "\".")
  242.             (help @copyfiles-help)
  243.             (source "DiamondCaves/DiamondCaves.doc")
  244.             (dest "DC:")
  245.             (files)
  246.         )
  247.         (complete 50)
  248.         (copyfiles
  249.             (prompt "Updating necessary files in \"" DrawerName "\".")
  250.             (help @copyfiles-help)
  251.             (source "DiamondCaves/DiamondCaves.guide")
  252.             (dest "DC:")
  253.             (files)
  254.         )
  255.         (complete 65)
  256.         (copyfiles
  257.             (prompt "Updating necessary files in \"" DrawerName "\".")
  258.             (help @copyfiles-help)
  259.             (source "DiamondCaves/Game.lvl/23")
  260.             (dest "DC:Game.lvl/")
  261.             (files)
  262.         )
  263.         (complete 80)
  264.         (copyfiles
  265.             (prompt "Updating necessary files in \"" DrawerName "\".")
  266.             (help @copyfiles-help)
  267.             (source "DiamondCaves/Game.lvl/25")
  268.             (dest "DC:Game.lvl/")
  269.             (files)
  270.         )
  271.  
  272.         (complete 100)
  273.         (message "\nDiamond Caves update complete.\n\nAnd now enjoy Diamond Caves!")
  274.  
  275.     )
  276. )
  277.  
  278. (exit (quiet))
  279.